home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / PC / MISCBAS / APOLLO.ASC < prev    next >
Text File  |  1987-01-11  |  3KB  |  75 lines
  1.  
  2. 10 OUT 2,26
  3. 20 PRINT "    ***   THIS IS AN APOLLO SPACECRAFT MISSION   ***"
  4. 30 PRINT:PRINT"              NOTHING CAN POSSIBLY GO WRONG"
  5. 40 PRINT
  6. 50 PRINT:PRINT"STAND BY FOR BLAST OFF":PRINT
  7. 60 FOR A=1 TO 100
  8. 70 NEXT A
  9. 80 LET B=11
  10. 90 LET B=B-1
  11. 100 FOR C=1 TO 750:NEXT C
  12. 110 PRINT B
  13. 120 IF B=0 THEN 150
  14. 130 GOTO 90
  15. 140 END
  16. 150 PRINT
  17. 160 GOTO 190
  18. 170 FOR D=1 TO 750:NEXT D
  19. 180 IF D=749 THEN 270
  20. 190 OUT 2,26
  21. 200 PRINT "***********************************************************"
  22. 210 PRINT "***********************************************************"
  23. 220 PRINT "****              BLAST OFF!!!!!!!!                    ****"
  24. 230 PRINT "***********************************************************"
  25. 240 PRINT "***********************************************************"
  26. 250 FOR E=1 TO 1000 :NEXT E
  27. 260 OUT 2,26
  28. 270 PRINT "                         '"
  29. 280 PRINT "                         I"
  30. 290 PRINT "                       / ^ \"
  31. 300 PRINT "                     /^^^^^^^\"
  32. 310 PRINT "                     I--USA--I"
  33. 320 PRINT "                     I-------I"
  34. 330 PRINT "                     I   A   I"
  35. 340 PRINT "                     I   P   I"
  36. 350 PRINT "                     I   O   I"
  37. 360 PRINT "                     I   L   I"
  38. 370 PRINT "                     I   L   I" 
  39. 380 PRINT "                    /    O    \"
  40. 390 PRINT "                   /           \"
  41. 400 PRINT "                  /             \"
  42. 410 PRINT "                  ---------------"
  43. 420 PRINT "                     /\  /\  /\"
  44. 430 PRINT "                   **************"  
  45. 440 PRINT "                ********************"
  46. 450 PRINT "                   *************"
  47. 460 PRINT "                      ********"
  48. 470 FOR H=1 TO 200
  49. 480 NEXT H
  50. 490 FOR H=1 TO 150
  51. 500 PRINT"                      ********"
  52. 510 NEXT H
  53. 520 OUT 2,26
  54. 530 PRINT CHR$(27);CHR$(94)
  55. 540 PRINT "***********************************************************"
  56. 550 PRINT "***********************************************************"
  57. 560 PRINT "****                                                   ****"
  58. 570 PRINT "****             BOOM!!!!!!!!!!!                       ****"
  59. 580 PRINT "****                                                   ****"
  60. 590 PRINT "***********************************************************"
  61. 600 PRINT "***********************************************************"
  62. 610 PRINT CHR$(7);
  63. 620 FOR I=1 TO 750
  64. 630 NEXT I
  65. 640 OUT 2,26
  66. 650 PRINT:PRINT
  67. 660 PRINT:PRINT:PRINT
  68. 670 PRINT:PRINT:PRINT
  69. 680 PRINT"NOTHING CAN POSSIBLY GO WRONG........";
  70. 690 FOR I=1 TO 750
  71. 700 NEXT I
  72. 710 PRINT"GO WRONG........";
  73. 720 FOR I=1 TO 50: NEXT I:GOTO 710
  74. 730 END
  75. GO WRONG...